﻿Imports DNP.GestionComercial.BE
Imports DNP.DevNetPeru.Data
Imports System.Data.SqlClient

Public Class ParametricaDAL

    Public Function ListarParametros(ByVal pCodigo As Integer) As RespuestaBE
        Dim LstEntidad As New List(Of ParametricaBE)
        Dim obeRespuesta As New RespuestaBE
        Try

            Dim cmd As New SqlCommand("COM_SEL_COM_PARAMETROS")
            cmd.CommandType = CommandType.StoredProcedure
            cmd.Parameters.Add("p_codigo", SqlDbType.Int).Value = pCodigo

            Using dr As SqlDataReader = BaseDatos.GetDataReader(cmd)
                If dr.HasRows Then
                    ' Return ObtenerUbigeo(dr)
                    LstEntidad = Utils.CreaLista(Of ParametricaBE)(LstEntidad, dr)
                    obeRespuesta.ValorRertono = LstEntidad
                    obeRespuesta.Respuesta = True

                    Return obeRespuesta

                Else
                    obeRespuesta.ValorRertono = LstEntidad
                    obeRespuesta.Respuesta = True

                    Return obeRespuesta
                End If
            End Using


        Catch ex As Exception
            obeRespuesta.ValorRertono = LstEntidad
            obeRespuesta.Respuesta = False
            obeRespuesta.Mensaje = "msgErrorCargarInfoBD"

        End Try
        Return obeRespuesta
    End Function

    Public Function ListarParametricaXPadre(ByVal codigoPadre As Integer) As RespuestaBE

        Dim res As New RespuestaBE

        Using cmd As New SqlCommand("PA_COM_PARAMETRICA_SEL_PADRE")
            cmd.CommandType = CommandType.StoredProcedure
            cmd.Parameters.Add("P_NPAR_CODIGO_PADRE", SqlDbType.Int).Value = codigoPadre

            Dim lstObj As New List(Of ParametricaBE)()
            Using dr As SqlDataReader = BaseDatos.GetDataReader(cmd)
                Utils.CreaLista(lstObj, dr)
                res.ValorRertono = lstObj
                res.Respuesta = True
                Return res
            End Using
        End Using

        Return res
    End Function

End Class
